home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Digital Quill / Install_Quill < prev    next >
Encoding:
Text File  |  1996-09-27  |  10.1 KB  |  326 lines
  1. ;******************************************************************************
  2. ;     ____   __           __    __          __    ______          __   __   __
  3. ;    / __ \ /_/          /_/  _/ /_        / /   / __  /         /_/  / /  / /
  4. ;   / / / /__    ______ __   /  __/______ / /   / / / /  __  __ __   / /  / /
  5. ;  / / / // /   / __  // /   / /  / __  // /   / / / /  / / / // /  / /  / /
  6. ; / /_/ // /_  / /_/ // /_  / /_ / __  // / / / /__\ \ / /_/ // /_ / /_ / /_
  7. ;/_____//___/ _\__  //___/ /___//_/ /_//___/ /____//_//_____//___//___//___/
  8. ;            /_____/      Installer by Robert C. Reiswig ©1995        
  9. ;                      This installer was Edited in Digital Quill
  10. ;
  11. ; $VER 1.0g
  12. ; Changes, suggestions or problems: rcr@netcom.com
  13. ;******************************************************************************
  14.  
  15. (set quillversion "1.0")
  16. (set spaceneed 350000)
  17.  
  18. ;*** System Stuff ***
  19. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  20. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  21. (set osver (/ (getversion "LIBS:version.library") 65536))
  22. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  23. (set fastmem (- totmem graphmem))
  24.  
  25. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  26. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  27. ( if (= osver 41) ( (set workbench "4.0")) )))))
  28.  
  29. (set runstring (cat "search" " env:Language ")) 
  30. (set runstring1 (cat runstring "english"))   (if (= (run runstring1) 0)  ( (set #lan1 "English")  (set lang 0) )  )      
  31. (set runstring1 (cat runstring "français"))  (if (= (run runstring1) 0)  ( (set #lan1 "Français") (set lang 1) )  )
  32. (set runstring1 (cat runstring "suomi"))     (if (= (run runstring1) 0)  ( (set #lan1 "Suomi")    (set lang 2) )     ) 
  33.  
  34. (set #langQuestion (cat "The following were found in Locale:\n\n" #lan1 "\n\nSelect one of the installers supported Languages.") )
  35.  
  36. ;********************************************************************
  37. ; !welcome
  38. ;********************************************************************
  39. (set #about  (cat "\n- Digital Quill Demo" quillversion " -\n\nTimothy Aston ©1992-1995\n\n\n\nPhantom Development, Inc.\n\n"
  40.                    "P.O. Box 572\n\nPlantsville, CT 06479\n\nTelephone: "
  41.                    "(203) 276-8175"
  42.              )
  43. )
  44.  
  45. (message #about)
  46. (welcome) 
  47.  
  48.  
  49. ;******************************************************************************** 
  50. ;ASK DEFAULT LANG
  51. ;********************************************************************************
  52.  
  53. (set LAN  (askchoice (choices "English" "Français" "Suomi"
  54.              (prompt #langQuestion)
  55.                      (help #langQuestion)
  56.                    (default lang)
  57.                  )
  58.           )
  59. )
  60.  
  61.  
  62. ;********************************************************************
  63. ; English Strings 
  64. ;********************************************************************
  65. (set #sorry "Digital Quill requires at least Kickstart 2.1. Here is the current setup:\n\n")
  66. (set #sorry1 (cat " \"" workbench "\" Version of OS\n\n"
  67.                   " \"" cpu "\" Processor\n "
  68.                   " \"" blank "\" Machine\n"
  69.                   " \"" graphmem  "\" Total Free Chip Memory\n"
  70.                   " \"" fastmem  "\" Total Free Fast Memory\n"
  71.              )                 
  72. )
  73.  
  74.  
  75. (set #WhereQuill (cat "Where do you wish to install Digital Quill?  "
  76.                       "A directory called \"DigitalQuill\" will be created there "
  77.                       "if none is present. If you have an older version installed it will back it up."
  78.                  )
  79. )
  80.  
  81.  
  82. ;********************************************************************
  83. ; French Strings 
  84. ;********************************************************************
  85. (if (= LAN 1)
  86.     (set HOLD_HOLD 1)   
  87. )
  88.  
  89.  
  90. ;********************************************************************
  91. ; Suomi Strings 
  92. ;********************************************************************
  93. (if (= LAN 1)
  94.     (set HOLD_HOLD 1)   
  95. )
  96.  
  97.  
  98.  
  99. ;********************************************************************
  100. ; Check OS for <37
  101. ;********************************************************************
  102. (if (< osver 37) 
  103.    (abort  (cat #sorry #sorry1))
  104. )
  105.  
  106.  
  107. ;********************************************************************
  108. ; Ask where to put DQ & Make Dir
  109. ;********************************************************************
  110. (set DQdir   (askdir (prompt #WhereQuill)
  111.            (help   #WhereQuill)
  112.            (default "Work:")
  113.              )  
  114. )
  115.  
  116. (if (< (exists (tackon DQdir "DigitalQuill")) 2)
  117.       (makedir (tackon DQdir "DigitalQuill") (infos))
  118. )
  119.     
  120.  
  121. (set where (tackon DQdir "DigitalQuill"))
  122. (set where1 DQdir)
  123. (set @default-dest where)
  124.  
  125. ;********************************************************************
  126. ; Check for old & backup
  127. ;********************************************************************
  128. (if (exists (tackon where "Quill")) 
  129.   (
  130.     (if (< (exists (tackon where "Old-Quill")) 2)
  131.       (makedir (tackon where "Old-Quill") (infos))
  132.     )
  133.    
  134.  
  135.     (copyfiles (source (tackon where "Quill")) (dest (tackon where "Old-Quill")) (infos)  )  
  136.     (delete (tackon where "Quill"))
  137.  
  138.     
  139.   )
  140. )
  141.  
  142. ;********************************************************************
  143. ; Make sure there is room
  144. ;********************************************************************
  145. (set space1 (getdiskspace where))
  146. (set spacedif (- spaceneed space1))
  147.  
  148.  
  149. (set #yaspace (cat "'" where1 "' has enough room for Digital Quill."))
  150. (if (< space1 spaceneed) 
  151.  
  152.   (set #yaspace (cat where " is " spacedif " bytes short.\nYou will need to "
  153.                            "'Abort Install' and free up some more space to install "
  154.                            " Digital Quill on " where " ."
  155.                 )
  156.   ) 
  157. )
  158. (message (cat spaceneed " bytes are needed on\n\n'" where1 "'\n\nto install Digital Quill.\n\n\n"
  159.           "Currently there is " space1 " bytes free.\n\n\n" #yaspace 
  160.          )
  161. )
  162.  
  163.  
  164.  
  165.  
  166. ;********************************************************************
  167. ; Copy Main Binary
  168. ;********************************************************************
  169. (set #yes "Yes")
  170. (set #no "No")
  171. (set oldquill (tackon where "Old-Quill") )
  172. (set oldrexx  (tackon oldquill "Rexx") )
  173. (set oldmacros  (tackon oldquill "Macros") )
  174.  
  175. (set #dic "\nInstall Default Quill Icon Pack?\n")
  176.  
  177. (set #rexx (cat "Do you wish to install the Quill AREXX Scripts to Rexx: ?"
  178.                  " All of the old ones will be backed up to " oldrexx 
  179.             )
  180. )
  181.  
  182.  
  183. (set #macros (cat "Do you wish to install any of the the Quill Macros?"
  184.                  " All of the old ones will be backed up to " oldmacros 
  185.              )
  186. )
  187.  
  188.  
  189. (set #mdefault "Digital Quill Default")
  190. (set #msas     "SAS/C Compiler Support")
  191. (set #mdice    "DICE Compiler Support")
  192. (set #mm2      "Benchmark Modula-2 Support")
  193. (set #mask     "What Macro support do you wish to use?")
  194.  
  195.  
  196.  
  197.  
  198.   
  199.  
  200.  
  201. (set dic  (askchoice (choices #yes #no 
  202.              (prompt #dic)
  203.                      (help #dic)
  204.                    (default 0)
  205.                  )
  206.           )
  207. )
  208.  
  209. (set rexx1  (askchoice (choices #yes #no 
  210.              (prompt #rexx)
  211.                      (help #rexx)
  212.                    (default 0)
  213.                  )
  214.           )
  215. )
  216.  
  217. (set macros  (askchoice (choices #yes #no 
  218.              (prompt #macros)
  219.                      (help #macros)
  220.                    (default 0)
  221.                  )
  222.           )
  223. )
  224.  
  225.  
  226.  
  227.  
  228. (if (= dic 0)
  229.    (
  230.        (if (< (exists "env:Quill") 2) (makedir "env:Quill")  )
  231.        (if (< (exists "envarc:Quill") 2) (makedir "envarc:Quill")  )
  232.  
  233.        (copyfiles (source "Icons") (dest "envarc:Quill") (all) (infos) )
  234.        (copyfiles (source "Icons") (dest "env:Quill") (all) (infos) )
  235.    )
  236. )
  237.  
  238.  
  239.  
  240.  
  241.  
  242. (if (= rexx1 0)
  243.    (
  244.        (if (< (exists oldquill) 2) (makedir oldquill)  )
  245.        (if (< (exists oldrexx) 2) (makedir oldrexx)  )
  246.        (copyfiles (source "rexx:") (dest oldrexx) (pattern "#?.quill") (infos) )     
  247.   
  248.        (copyfiles (source "Rexx") (dest "rexx:") (all) (infos) )
  249.         
  250.    )
  251. )
  252.  
  253.  
  254.  
  255. (copyfiles (source where) (dest oldmacros) (pattern "#?.macros") (infos) )     
  256.  
  257. (if (= macro 0)
  258.    (
  259.        (if (< (exists oldquill) 2) (makedir oldquill)  )
  260.        (if (< (exists oldmacros) 2) (makedir oldmacros)  )
  261.        (copyfiles (source where) (dest oldmacros) (pattern "#?.macros") (infos) )     
  262.  
  263.        (set mac  (askchoice (choices #mdefault 
  264.                               (prompt #mask)
  265.                          (help #mask)
  266.                        (default 0)
  267.                         )
  268.                  )
  269.        ) 
  270.       
  271.   
  272.        (copyfiles (source "Macros") (dest where) (all) (infos) )
  273.  
  274.        (if (> mac 0 )
  275.           (
  276.            (copyfiles (source "Macros/Quill.macros") (dest where) (newname "Quill_Default.macros") )
  277.            (delete (cat where "Quill.macros"))
  278.            (if (= mac 1)
  279.              (
  280.                (copyfiles (source (tackon where "Quill_SAS.macros"))  (dest where) (newname "Quill.macros")) 
  281.                (if (< (exists "env:SC") 2) (makedir "env:SC")  )
  282.                (if (< (exists "envarc:SC") 2) (makedir "envarc:SC")  )
  283.  
  284.                (copyfiles (source "Env") (dest "envarc:") (all) (infos) )
  285.                (copyfiles (source "Env") (dest "env:") (all) (infos) )
  286.              )
  287.            )
  288.            (if (= mac 2)  (copyfiles (source (tackon where "Quill_DICE.macros")) (dest where) (newname "Quill.macros")) )
  289.            (if (= mac 3)  (copyfiles (source (tackon where "Quill_M2.macros"))   (dest where) (newname "Quill.macros")) )
  290.           )
  291.        )
  292.  
  293.        
  294.    )
  295. )
  296.  
  297.  
  298.  
  299.  
  300. (copyfiles (source "Quill") (dest where) (infos) )
  301.  
  302. ;(if (< (exists "sys:Locale/Catalogs/english") 2) (makedir "sys:Locale/Catalogs/english")  )
  303. (if (< (exists "sys:Locale/Catalogs/français") 2) (makedir "sys:Locale/Catalogs/français")  )
  304. (if (< (exists "sys:Locale/Catalogs/suomi") 2) (makedir "sys:Locale/Catalogs/suomi")  )
  305. (copyfiles (source "Catalogs/français/Quill.catalog") (dest "sys:Locale/Catalogs/français") (infos) )
  306. (copyfiles (source "Catalogs/suomi/Quill.catalog") (dest "sys:Locale/Catalogs/suomi") (infos) )
  307.  
  308.  
  309.  
  310. (copyfiles (source "Quill") (dest where) (infos) )
  311. (copyfiles (source "SpeedButtons.8") (dest where) (infos) )
  312. (copyfiles (source "Read_Me") (dest where) (infos) )
  313.  
  314.  
  315. (copyfiles (source "Doc") (dest where) (all) (infos) )
  316. (copyfiles (source "Fonts") (dest "fonts:") (all) (infos) )
  317.  
  318.  
  319.  
  320. (if (= LAN 0)
  321.    (copyfiles (source "Help/Quill_English.guide") (dest where) (infos) (newname "Quill.guide"))
  322. )
  323.  
  324.  
  325.  
  326.